Scatter plot using R plotly